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1 =$007 138% 95:00:34 YROM. SRE MOMMOPLIO.832; wh 


ZTITLE "Network Service MOP Line I/0 modules’ 
PLIO ¢ 


; 1 1 

$ § MODULE MOMMO 

3 LANGUAGE (BLISS32) 

= 0 ADDRESSING_MODE (NONEXTERNAL=LONG RELATIVE), 

3 5 005 ADDRESSING ree (EXTERNAL=LONG_RECATIVE), 

; § Bos IDENT = 'V04-000' 

; 4 d= 

3 8 0 BEGIN 

3 9 009 1! 

3 19 B19 ! , Seeeennenrnerereesernenenaraenerereereereteeeeneeeetaesneeaerensetetenteree 
: .* e 
3 \ pote 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
H 1 01 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3 13 Bate : is ALL RIGHTS RESERVED. * 
Py H ® 
; Bni8 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ae 0017 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; Ww 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 19 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY » 
3 1 89 1 : :* TRANSFERRED. sd 
3 ‘® e 
; ‘ 00 ; 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 4 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $ 8 5 : :* CORPORATION. 4 
Ps : 
3 $$ 00 5 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
H 8 0028 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: $8 0080 | is 
: 1 ett 1 i ween eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeneeeeeeeeeee 
3 1! 

UE tet eb 

; 5 it : FACILITY: DECnet-VAX Network Management Maintenance Operations Module (MOM) 
. 003? | i ABSTRACT: 

3 0038 1! This module contains routines to handle I/0 for MOP 

3 ip O40 : functions. 

; rh Opes : ; ENVIRONMENT: VAX/VMS Operating System 

F “8 Does ! ; AUTHOR: Kathy Perko 

; 45 0045 1 CREATION DATE: 11-Jan-1983 

> 47 0047 1 | MODIFIED BY: 

; «648 48 1! v03-005 MKP0005 Kathy Perko 30-May-1984 

; 49 7 as Eliminate echo parameter from SETMODE Q10 to NI driver. 

; @ 50 1! This is because, if the target device is a QNA, the echo 

3 2) ah : : option is not implemented. 

; 3g 3g 1/ v03-004 MKP0004 Kathy Perko 29-April-1984 

; 54 1! When sending and receiving MOP mocseaee.. the receive NI 

; 5 $ 1! address is currently never alternated between the hardware 

; § p26 1% nd DECnet address. Fix it so that it will be if the CIB 

; 057 1! s marked ‘‘alternate’’. Also, get rid of Request ID stuff. 


ee ee ee | 


Network 


et) a ss tt tt 


Service MOP Line 1/0 modules 


It'll just slow things down. 


v03-003 mKP0003 Kathy Perko 11-Feb-1984 

Use NI Remote Console protocol for boot message instead of 
NI —— protocol. 

Use system ID myssepe to get target's NI address instead of 
alternately trying the hardware and the DECnet NI addresses. 


MKPO0002 Kathy Perko 12-Sept-1983 
If area routing is turned off, use a physical address 
with an area number of one instead of zero. 


v03-001 MKP0001 Kathy Perko 88-May-1983 
Change check on read completion status and quit 
trying to send to target if it's anything except SS$_TIMEOUT. 
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TABLE OF CONTENTS: 


FORWARD ROUTINE 
mom$m 


opopen 
monspopsetsubstate 
t._cIs8 


mom$in 
mom$set_NI_addr 
mom$mopsndrcv, 
mom_mop_receive, 


ervice MOP Line 1/0 modules 
Declarations 


1 ZSBTTL ‘Declarations’ 


: NOVALUE, 
: NOVALUE, 
: NOVALUE, 


momsmop_receive_qiow, 


mom$mopsend, 
mom_mapmoperrors; 


! INCLUDE FILES: 


BRARY ‘LIB$:MOMLIB.L32'; 


Ll 
tibnan * SHRLIBS : NMAL 


iBRY.L32'; 
BRARY 'SYSSLIBRARY:STARLET.L$2'; 


' 
EQUATED SYMBOLS: 


LITERAL 
mom$k_moprcvefn 
mom$m_moprcvefn 
mom$k_mopsnde fn 
mom$m_mopsndefn 
mom$k_mopt imefn 
mom$m_mopt ime fn 


—Weny es = 


; EXTERNAL REFERENCES: 


$Smom_externals; 


EXTERNAL 
mom$gq_t imeout: 


mom$gq_dle_namdsc: 


! MOP receive event flag 


* mom$k_moprcvefn, 
“ mom$k_mopsndefn, 


! MOP 1/0 timer event flag 


“ mom$k_moptimefn; 


AX-11 Bliss-32 v4.0- 
MOM. SRCJMOMMOPLIO.B3 


=2 


! MOP send event flag 


mM 2 
10 Network Service MOP Line 1/0 modules 16-Sep-1984 02:04:54 AX-11 Bliss-32 V4.0-742 p 4 
Yoon 000 mom$mopopen Open a circuit for MOP mode access 1 ~300n 138% 95:08:32 MOM. SRCJMOMMOPLIO.B32;1 — (3) 


ZSBTTL ‘mom$mopopen Open a circuit for MOP mode access’ 
GLOBAL ROUTINE mom$mopopen (mop_channel) : NOVALUE = 
i] 


'ee 
! FUNCTIONAL DESCRIPTION: 


This routine opens a channel to a circuit for service operations 
via a request to NETACP. 


< 
oO 


— 


Wnr—O 


wn 


MOP_CHANNEL = Address at which to return channel over which MOP QI10s 
are to be done. 


PARAS LWW 


WN "SO OCONAVUNS UN 0 OONAWUE A (OO ONAUS 


Success/failure of operation. 


MOM$GQ_TIMEOUT Timer for MOP I/0 has been set up. 
ROP _CHMOEL © Adéress for returning channel for which all MOP 1/0 
s initialized. 


LOCAL 
retry_count, 
iosb 


: $10SB 
circuit_dsc : VECTOR (2), 
status; “ 


i] 
Save the service timer (specified in Msec). 


PAARL 


mom$gq_t imeout CO} = -10 * 1000 * .mom$ab_service_data CsvdSgk_pclisti. 


: svd$l_param]; 
Assign a channel to NET for use in controlling and accessing the circuit. 


v0 


SOOOSOOOOOOSOSOCOOOSOOSOSOSOSOSOSOSOSOSSSOSOOSOSOOOSOOOOOOOOOOOCOOOOOOCOOOOOOO 


ec ee ee ee ee ee a ee a ed ed ed ed wd ed od 8 8d od dd 


Status = SASSIGN (CHAN = .mop_channel, 
DEVNAM = mom$gq_dle_namdsc); 
mom_mapmoperrors (.status, 0, mom$signal); 


i Request use of the circuit for MOP functions. This request causes 
! NETACP to allow Service to issue Q10s directly to the circuit - not a 
! normal eating, since NETDRIVER is normally the only DECnet module 


1 which does Se 


SN NNN NNO OOOO 


20000 09 000000 
SPP ASESSSVSARANSSSSLSAF 


circuit_dsc fo} = ,mom$ab_service_data (svd$ k-peno_sti, sugSb string. lend; 
circuit dsc 1] = mom$ab_Service_data Csvd$gk_fcno_Sli, svd$t_String): 


i Get NETACP to put the service device into a state where Service can 
' issue Q10s to it. ssue the Q10 to tell NETACP the circuit is needed 
} for a service function. Do 3 retries. 
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retry_count = 3; 


7 


a se 


BNP AE WN OSR NEAR GU OOR IRA OMO LOD 


wWOOOO0O0O0OMOMO? 
NOW SW —OOO 


ss st i 
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Pp 
Pp 
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Network Service MOP Line 
mom$mopopen Open a circuit for MOP mode access 14-Sep-1984 


=PINIPINIPINININININININWNE FLEW 


N 2 
/0 modules 16-Sep-1984 


WHILE true 09 
BEGIN 


retry count = “Petry count - 1; 
status = $Q10W (CHAN™= ; mop channel, 
FUNC = 10$_access, 
10SB = iosb, 
Pl = circuit_dsc); 
mom$debug_qio (dbg$c_mopio, .status, josb, 0, circuit 
0, 0, $aScip (* fos access G10 on 
rc »Status) OR (NOT .iosb Cios$w_StatusJ) 


BEGIN 
IF .retry_count LEQ 0 THEN 
mom_mapmoperrors (.status, iosb, mom$signal); 


EN 
ELSE 
EXITLOOP; 
END; 


J 
: Check to see if the circuit is an NI circuit. 


if .iosblios$l_info] THEN 
mom®gl_service_flags Cmom$v_ni_circ] = true; 


Set the circuit substate to -AUTOSERVICE. 


IF .mom$gl_service flags Cmom$v_autoservice] THEN 

mom$mopsetsubstate (nma$c_linss_ase, 
--mop_channel); 
!"End of MOMSMOPOPEN 


93:28: 


¢¢ ad Bliss-32 V4.0-74 
4 MOM. SRCJMOMMOPL 10.832; 


dsc, 
MOP channel')); 


END; 
-TITLE MOMMOPLIO Network Service MOP Line I/0 modules 
-IDENT \V04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
53 45 43 43 41 SF $8 4—F 49 Q0000 P.AAB: .ASCII \IO$_ACCESS Q10 on MOP channel\ s 
68 63 20 50 4F 4D 20 6E 6F O000F 3 
pt -BLKB 
00000010 onse P.AAA: .LONG 29 s 
00000000" 00024 -ADDRESS P.AAB 3 
-EXTRN MOMSGL_LOGMASK, MOMSGL_SVD_INDEX 
-EXTRN MOMSAB_SERVICE DATA 
-EXTRN MOMS$GB_FUNCTION 
-EXTRN MOMSGB_OPTION_BYTE 
-EXTRN MOMSGB_ENTITY_CODE 
-EXTRN MOMSAB_ENTITY_BUF 
eEXTRN MOMSGQ_ENTITY BUF _DSC 
-EXTRN MOMSGL-SERVICE FLAGS 
-EXTRN MOMSAB_NPARSE BLK 
-EXTRN MOMSAB_NICE_RCV_BUF 
-EXTRN MOMSAB_NICE_XMIT_BUF 
-EXTRN MOMSGQ"NICE-RCV_BUF_DSC 
~-EXTRN MOMSGL_NICE_RCV_MSG_LEN 
-EXTRN MOMSGQ"NICE_XMIT_BUF_DSC 


de 18 Sa 
v04-00 


Network Service MOP Line 1/0 modules 
mom$mopopen Open a circuit for MOP mode access 


rt yi AX=-11 Bliss-32 V4.0=-742 
4 MOM. SRCJMOMMOPL10.B32;1 


MOM$AB_MSGBLOCK 
MOM$AB_ACPQ10_BUF 4? 
MOM$GQ- =Agnelg. BUF 

MOMSAB_C 8, NONSAB. too. CIB 


MOMSAB-NOP “RECS HO DSC 
MOM$GQ_MOP_MSG_DSC 


m3 8 | 
SVD$SC_ENTRY~ COUNT 
mOMscO TIMEOUT. MOM$GQ_DLE _NAMDSC 
MOMSBLB REPLY, MOMSDE BOG_MSG 
MOMSDEB0G Q10, ROHSDEBUG_ TXT 
SYSSASSIGR, SYS$Q10W 


SCODES,NOWRT ,2 


Sz 


oo 


] 
3 | 
al Network Service MOP Line 1/0 modules 1$-sep-19 4 9 04:35 mae Bliss-32 V4.0-742 Page 7 
v04-00 mom$mopopen Open a circuit for MOP mode access 14-Sep-1984 12:44:34 MOM. SRCJMOMMOPLIO.B32;1 (3) 
} 


>+8>, CIRCUIT_DSt 


04 AE 00000000* € 


~ 
so 
m 
So 
oO 
o 
= 
oo 
= 
Oo 
<= 
> 
@ 


<<MOMSAB_ SERVICE _DATA+<SVD$GK_PCNO_SLI*137>=-; 0180 
CUIT DST+4 


003¢ 000 .ENTRY MOMSMOPOPEN, Save R2,R3,R4,R5 ; 0131 | ; 
55 990000006 EF 9E MOVAB MOMS$GL_SERVICE FLAGS, R5 : : 
4 00000000v EF 9E 0000 MOVAB MOM_MAPMOPERRORS, R4 : F 
SE 10 ¢ 0019 SUBL2 # SP : ; 

000000006 EF 00000000* EF FFFFD8FO 8F (C5 0001 MULL3 #-10000, <<MOMS$AB SERVICE _DATAs- + 0164 ; 
<SVD$GK_PCLI_STI*137>>+9>> MOM$GQ_TIMEOUT  ; : 

7E 7C 000 3 CLRQ = =(SP) + 0170 ; 

04 AC DD 000 USHL  MOP_CHANN : : 

000000006 EF 9F 00028 PUSHAB MOMSGQ_DLE_NAMDSC : ; 

000000006 99 4 FB 00 é ALLS #4, SYSSASS : : 

2 0 D 00 OVL * STATU : ; 

01 DD 00038 PUSHL # + 0171 : 

7E D4 0003A LRL. = (SP) : : 

5¢ DD 0003C PUSHL STATUS : ; 

64 03 FB 0003E CALLS #3, MOM_MAPMOPERRORS : ; 

6E 00000000* EF 9A 00041 MOVZBL <<MOMSAB_SERVICE_DATA+<SVD$GK_PCNO_SLI*137>=-: 0179 ; 


>+9>, Cl : 

53 03 DO 00050 MOVL #3, RETRY COUNT + 0186 

53 07 00053 1$ DECL § RETRY_COUNT + 0189 

7E 7C 00055 CLRQ -(SP) : 0193 

7E 7C 00057 CLRQ =(SP) : 

7E 04 00059 CLRL = = (SP) : ; 
146 AE 9F 00058 PUSHAB CIRCUIT_DSC ; : 
7E 7C 0005€ CLRQ = = (SP) : : 
28 AE 9F 00060 PUSHAB 10SB : ; 
32 DD 00063 PUSHL #50 : F 
04 BC DD 00065 PUSHL @MOP_CHANNEL : : 
7E D4 00068 CLRL.  =(SPY : ; 
000000006 00 OC FB 0006A CALLS #12, SYS$QI0W : ; 
52 50 pO 00071 MOVL RO, STATUS : ; 
00000000' EF 9F 00074 PUSHAB P. + 0195 ; 
7E 7C QOO7A CLRQ -(SP) 3: 0194 $ 
Oc AE 9F 0007C PUSHAB CIRCUIT_DSC ; ; 
7E 04 0007F CLRL = = (SP) : : 
1¢ AE 9F 00081 PUSHAB I0SB : ; 
52 DD 00084 USHL STATUS : : 
05 DD 00086 PUSHL #5 : : 
000000006: EF 08 FB 0088 CALLS #8, MOMSDEBUG_Q10 : : 
04 52 £9 0008F BLBC STATUS, 2$ + 0196 : 
10 08 AE E8 00092 BLBS I0SB, 3$ : : 
53 D5 30096 2$: TSTL RETRY_COUNT ; 0199 ; 
B9 14 0009 BGTR 1$ : : 
01 DD O009A PUSHL #1 : 0200 ; 
Oc AE 9F 0009C PUSHAB 10SB ; : 
52 DD 009% PUSHL STATUS ; ; 
64 0 FB QOOA1 CALLS #3, MOM_MAPMOPERRORS 3 é 
AD 11 OOOA4 BRB + 0196 : 
03 Oc A £9 OOA6 3$: BLBC 10SB+4 4$ : 0208 : 
65 02 88 OOOAA BISB2 #2, MOMSGL_SERVICE_FLAGS : 0209 : 
0c 65 £9 OOOAD 4$: BLBC MOMSGL_SERVICE_FLAGS, 5$ > 0213 : 
04 BC DD 000B PUSHL  @MOP_CRANNEL : 0215 : 
06 DD 0008 PUSHL @# > 0214 : 
00000000v_ EF 02 FB 000B CALLS #2, MOMSMOPSETSUBSTATE ; : 
04 000BC 5$: RET > 0216 : 


10 Network Service MOP Line 1/0 modules base 4 4:54 AX-11 Bliss-32 V4.0-74 Page 8 
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; Routine Size: 189 bytes, Routine Base: $CODE$ + 0000 


2 


3 
10 Network Service MOP Line 1/0 modules ib-se 1984 04:54 AX-11 Bliss-32 V4.0-742 P a 
mom$mopsetsubstate Set the circuit substate 122808- 138 9 ari): EROM. SRE MOMMOPLIO.832;1 — (4) | 


ZSBTTL ‘mom$mopsetsubstate Set the circuit substate’ 
GLOBAL ROUTINE mom$mopsetsubstate (substate, mop_chan) : NOVALUE = 


'e¢ 
! FUNCTIONAL DESCRIPTION: 


This routine modifies the substate of a circuit that has been opened 
for service operations. 


INPUTS: 

SUBSTATE New circuit substate code. 

MOP_CHAN Channel for MOP circuit control has been initialized. | 
OUTPUTS: 


Success/failure of operation. 


MORIPOPOPOPoTonoTnornononoporofpefporonony 
WAN ANIANIWNIWIWINoNononononononnn 
~ 


Sears wl 
owoon RW OOo Onn 
WO ODNAUES WN OOD NOUS WN OCONAUEWN O00 


mom_mapmoperrors (.status, iosb, mom$signal) 
END; ! End of MOMSMOPSETSUBSTATE 


” 
* 
. 
o 
. 
° 
. 
* 
. 
a 
° 
e 
. 
o 
. 
° 
° 
° 
. 
° 
o 
° 
. 
° 
. 
° 
° 
° 
o 
e 
o 
° 
7 
° 
. 
*° 
. 
° 
. 
e 
. 
o 
. 
a 
. 
° 
. 
° 
. 
o 
. 
. 
. 
. 
. 
o 
. 
& 
. 
oF 
. 
o 
a 
° 
° 
° 
° 
o 
7 
*. 
. 
° 
. 
. 


CGOOOCOCOCOCOCOCOOCSCOOCOCOCOOCOOOOOOOOOOOOOCOO 
= POPONOPONIPONO POPU NONOPONUNONORY) 2 2 ss es 
ow 
oO 
oO 
> 
mg 


2 

4 2 BEGIN 

41 2 

rt 23 

4 24 jiosb =: $Siosb, 

44 24 status; 

45 24 

46 24 

247 P 024 status = $Q]0W (CHAN = .mop_chan, ! Channel 

248 P 024 FUNC = io$_Setmode, ! Modify substate function 
249 P 024 I10SB = P 

250 24 k P4 = substate); _ | New substate value 
251 24 mom$debug_qio (dbg$c_mopio, .status, iosb, 0, 0, substate, 0, 
$26 24 SASCID ('Set circuit substate')); 

25 25 
254 25 

255 25 
256 25 


ios ' Address of I/0 status block 
-PSECT S$PLITS,NOWRT,NOEXE,2 
| 


62 75 73 20 74 69 75 63 72 69 63 20 74 65 53 00028 P.AAD: .ASCII \Set circuit substate\ : 

65 74 61 74 73 $8 ? : 

00000014 O35C P.AAC: .LONG 20 : 

00000000" 00040 «ADDRESS P.AAD : 

-PSECT SCODES,NOWRT,2 

0004 90000 ENTRY MOMSMOPSETSUBSTATE, Save R2 ; 0218 

5E 98 2 i SUBL2 8, SP : 
—E 7¢ CLRO =(SP) ; 0247 

04 AC OF ? PUSHAB SUBSTATE ; 

7e 7C A CLRQ -(SP) : 

7E 7C 0000C CLRQ ~(SP) : 


F 3 

Hr va a Network Service MOP Line 1/0 modules Jo~se0= 1386 06:06: 3¢ ney Bliss-32 V4.0-74 Page 10. 
Vv mom$mopsetsubstate Set the circuit substate 14-Sep-1984 12:44:34 MOM. SRC JMOMMOPLIO.E32; (4) | 
7E ps 0000 CLRL = SP) : | 
20 A F 1 PUSHAB 1938 : 
25 OD 1 PUSHL # ; 
08 AC DD 0001 PUSHL MOP_CHAN : | 
7E 04 1 CLAL rt 3 

000000006 99 of FB 1A CALLS #12, SYS$QI10W : 
3 1 MOVL RO, STATUS 3 
00000000" EF 9 000¢4 PUSHAB P.AAC ; 0249 
E pr 8 A CLRL =(SP) : 0248 

04 AC 9F 0002C PUSHAB SUBSTATE : 

7E 7C 0002F CLRQ =(SP) 3 
16 AE OF 4 1 PUSHAB I0SB ; | 
52 DD 00 PUSHL STATUS ; | 

05 DD 00036 PUSHL #5 3 

00000000G_ EF 08 FB 00038 CALLS #8, MOMSDEBUG_Q10 $ 
01 DD 0003F PUSHL #1 ; 0251 

04 AE 9F 00041 PUSHAB 10SB : 

52 DD 00044 PUSHL STATUS : 

00000000V EF 03 FB 49 984 CALLS #3, MOM_MAPMOPERRORS ; 
04 0004D RET ; 0253 


; Routine Size: 78 bytes, Routine Base: S$CODE$ + 00BD 


10 Network Service MOP Line 1/0 modules 18-sep 4:54 AX-11 Bliss-32 V4.0-74 
Vv mom$init_C1B Initialize channel Information 1 =300713 4 4 98: 0 77) MOM. SRC JMOMMOPL 10.832; 
ZSBTTL ‘mom$init_CIB iotgietize Channel Information Block’ 
GLOBAL ROUTINE mom$init_C1B (CIB 
function, 
phys_addr -8vd. 
node_addr_ 
hardware_ Sadr “svd) : NOVALUE = 
6 '4¢ 
6 i FUNCTIONAL DESCRIPTION: 
6 i This routine is called when setting up to perform a maintenance 
6 ; Sperat ion. It initializes the qnenne Information Block (CIB), 
6 i ich is used to control establishing the connection with the 
6 i target. 
026 i 
026 i INPUTS: 
0 § i = Address of CIB to initialize. 
0 i FUNCTION = load, dump, trigger, or test (NICE function code) 
027 i PHYS_ADDR_SVD = Index of SVD entry containing se NI physical 
027 i address to connect to (not sivas used 
027 i NODE ADDR. aove = Index of SVD entry containing ~e node address to 
027 i nect to (not always used). 
0275 i HARDWARE “ADDR. SVD = Index of SVD entry contataing the NI hardware 
8 address to connect to (not always used). 
IMPLICIT INPUTS: 
i OUTPUTS: 
. Channel Information Block is initialized. 


BEGIN 


Pp 
CIB: REF BBLOCK; 
' 


P2 parameter buffer for SETMODE to NI driver (XXDRIVER). 


POPOPIPOPIPSPEPOPPoNofononononofny 


Fa TSSS SSRN SSE ESPNS SE REAPER OSSIAN SSeS OP OR Soe 


OWN 

p2_buffer: BeLock Ccib$s_setmode_p2_buf] ALIGN (0) 

INIT iAL (WORK (nma$c_pcTi_bus), LONG (0), 

ORD (nma$c_pcli- ~pad); LONG (0), 
(nma$c_pcli_de h). LONG (nma$c _State_off), 
(nma$c_pcli_crc), LONG (nma$c_state_on), 
(nma$c_pcli_pty), LONG (0), 
(nma$c_pcli_ 0 LONG (nma$c_ Lincn_nor), 
WORD (nma$c_pcli_acc), LONG (nmasc_ “acc_lim), 
WORD (nma$c cli- “36S)° WORD (8), 
WORD (nma$c~Linme_setS,REP 3 OF WORD (0)), 
in_case_eko: BBLOCK (8); 


18 fc ibée. flags] = i 
cib$l"retry_cnt) = 5; 


st of the CIB fields are necessary for NI circuits only. Point to point 
rcuits (Like DMCs) don't need as much. 
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NOT -ponSgl service. flags Cmom$v_ni_circ] THEN 
. CIB ([cib$v_target_addr_fixed] ="trie 


BEGIN 


i Build P2 buffer containing the parameters to set up the NI for the 
maintenance operation. 


CHSMOVE (cibSs setmode_p2_buf, 
P buffer. 
CIB Ccib$t_setmode_p2_buf)); 


' 

! Set up the NI protocol type and padding to give the NI driver. The NI has 
' the tag HH} to run several protocols at once. MOM will set it up to 

! run the Load/Dump, the Remote Console, or the Loopback protocol. Padding 
! on means the NI driver will add a word of count to a buffer when it 
transmits it. Loop messages use a skip field instead. 
I 


IF .function EQL nma$c_fnc_tes THEN 
BEGIN | 
| 


CIB Ccib$l_p2_protocol] = mom$k_loop_ni_prot; 
cib$l"p ~pagding! = nma$c_State_off; 
cib$l_p2_buf_sizJ = 1500; 

BEGIN 

IF .fumction EQL nma$c_fnc_tri THEN 


CIB Ccib$l_p2_protdcol] = mom$k_console_ni_prot 


CIB Ccib$l_p2_protocol] = mom$k_loadump_ni_prot; 
cib t-Pg_padding = nma$c_staté_on; 
CIB (cib$l_p2_buf_siz 


= 1498; ! Leave room for padding. 
! 


Set up the NI address for the target. 


WAI 


ro eee lear oe ae et oe ot ae ot ot ot ol 1 


if -mom$ab_service_data C.phys_addr_svd, svd$v_msg_param] THEN 


i If there was a Physjcat Address specified in the NICE command 
! (operservice) or it's autoservice (and the sarget 8 physical address 


was in the NI header), do the operation to that address on the NI. 


NARS ITN IRININ IOI INTROS 
DONO AR WN OOD NOUE WN OOo a WAND DONOUESWN “OOOO 


BEGIN 

CHSMOVE (mom$k_ni_addr_Llength, 
mom$ab_service_data t -Phys_addr_svd. svd$t_string], 

CIB CcTb$t_ni_phys_addrJ); 

is Ccib$v_target_addr_fixed] = true; 


ELSE 


SODNOA UNE WIN OO ODNAUE WIN $ O OBNO UE WIN OO ODNOUE WN OW ONOU Sw 


WMwn—o 


C 
E 
1 
i This operation does not have a Physical Address supplied. In 

! this case, if the hardware address is available, set up to alternate 
$ frying the target's hardware NI address and it's HIORD NI address 
(the DEC NI prefix concatenated with the node's address). 

‘ 
C 


SOOOSOOCOCOOOSOCOOCOOCOOOSOOSOCOOSSSOOOSOOOCCOCOSOOOCOCOOOOOOOOOOOOOOOOO 


NOUS WIR — 


EGIN 
1B Ccib$l_ni_hiord_pref] = mom$k_ni_prefix; 
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nit_CciB Initialize Channel Information 14-Sep-1 
; $8 4 CIB Ccib$Sw_ni_hiord_node] = .mom$ab_service_data [.node_addr_svd, : 
; 8 ? svd$T_param); | : 
3 r 4 Initialize the SVD physical address to something. | : 
: ig 4 CHSMOVE (moms ni_addr ten th, ; 
; 7% 4 C18 CeTb$t_ni_Riord_addr), | : 
; 75 4 mom$ab_service_data L.phys_addr_svd, ayeet string]); 3 
3 18 4 mom$ab_service data [.phys_addr_svd, svd$b_string Ten] = : 
; 77 4 mom$k_ni_addr_length; : 
; 4 4 IF .mom$ab_service_data C.hardware_addr_svd, SvdSb_stFing len] : 
; 79 4 EQ 0 THEN 3 
; 80 BEGIN : 
; 1 CHSMOVE (mom$k_ni_addr_Llength, : 
; ¢ mom$ab_service data t-herquare_sddr_své. svd$t_string], : 
; ; g16 cTb$t_ni_Rardwr_addrJ); : 
; 8 se C18 Ccib$v_target_add?_fixed] = false; : 
; 0386 i When attempting to establish communication with the target, try 3 
3 4 4 é the HIORD address first. : 
; 0389 5 CHSMOVE (mom$k_ni_addr_length, ; 
3 0390 : CIB CcTb$t_ni_Rardwr_addr], 3 
3 0391 CIB Ccib$t_ni_phys_addrJ); 3 
; 0 3 5 END 3 
| (SRS oe , 
; 0395 4 i If there is no hardware address in the volatile database, simply try : 
3 Ba38 ? : communicating with the target using the HIORD NI address. : 
; 0598 "BEGIN ; 
; 0399 CHSMOVE (mom$k_ni_addr jength. : 
3 0400 CIB CcTb$t_ni_Riord_addrJ, $ 
: ot 2 : CIB Ccib$t_ni_phys_addr]); : 
3 ret CIB Ccib$v_target_addr_fixed] = true; : 
3 040 END : 
r pene ; END; : 
; $406 i Issue the SETMODE to tell the NI driver what protocol and NI address ; 
3 04 34 I want to use. The NI address set up will be the one to try first. : 
; 0409 mom$set_NI_addr (.CIB); ; 
; 0410 2 END; ; 
; 0411 1 END; ! End of mom$init_CIB : 


OAF1 00000 P2_BUFFER: 
ORD 3801 


oW 
0000 090 0002 - LONG 


0000 800 $008 “TONG We 
843 


aie 8 C - WORD 
0000000 -LONG $1 
Bic 0001 -WORD 2844 


-PSECT SOWNS,NOEXE,2 
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«PSECT 
-ENTRY 
AB 


98:00:38 AX-11 Bliss-32 V4.0-74 


MOM. SRC JMOMMOPL 10.832; 


we 
110 
846 
849 


ae 


SCODES,NOWRT ,2 


MOMSINIT CIB, Save Re. R3,R4,R5,R6,R7,RB,RI 


MOM$AB yor “DATA+9, RO 
CIB, R 

tha) &8 

#5, 18(R7) 

#1, MOMSGL_SERVICE_FLAGS, 1$ 
#i. (RB) 


#54 BUFFER, 22(R7) 
FONE TION’ nee’ 


#144, 48(R7) 
#1, $0(R7) 
#1500, 24(R7) 
FUNCTION, #17 
#608, 48(R7) 


#352, 48(R7) 


#1498, dg 

e157 ons \e- ADDR SVD, R6 

fe. ROM SERVICE _DATA+7 Rb. 4 
MOMSAB™ SERVICE =DATA+9LR6 O(R7) 


#262314, 4(R7) 
eg NODE ADDR_SVD, RO 
mons /B SERU ICE. BATA+9CRO) 
oo. Mar} MOMSAB_SERVICE_DATA+9(R6] 
rar RAMA ASR NS RO 
$AB_SERVICE~ ~DRTATSEROD 


a9. MOMSAB_SERVICE_DATA+9CROJ, 10(R7) 
#i, (R8) 
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46 AT OA A7 B poyes 5 + 10(R7), 70(R7) 3 4 
46 A? 046 A? BA $: MOVC Ae 4(R7), 70(R7) : 0401 
68 C : BISB #i, (RB) 3 04 3 
DD C3 9$: PUSHL R7 ; 040 

00000000V_ EF 1 £8 C CALLS #1, MOMSSET_Ni_ADDR 3 
04 cc RET ; 0411 


; Routine Size: 205 bytes, Routine Base: S$CODES + 0108 
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ZSBTTL ‘mom$set_NI_addr Tell NI driver targets NI address’ 
GLOBAL ROUTINE Miom$set_NI_addr (CIB) : NOVALUE = 

ee 

' FUNCTIONAL DESCRIPTION: 

This routine is called when soteine ve to perform a maintenance 
operation over an NI circuit. It tells the NI driver what 
protocol and destination NI address (among other things) to use 
when transmitting and receiving MOP messages. 


INPUTS: 
C18 = Address of Channel Information Block. This contains the 
NI addresses to try, and a prebuilt P2 buffer to give 
the NI driver. 
IMPLICIT INPUTS: 


OUTPUTS: 


BEGIN 


Pp 
CIB: REF BBLOCK; 


LOCAL 
p2_dsc: VECTOR (2), 
iosb: S$iosb, 
status; 


dsc (0) = cib$s_setmode_p2_buf; 
Bb Gse 1) = CIB CcibSt setmode p2_buf); 


IF (NOT .CIB Ccib$v_target_addr_fixed]) THEN 


] 
! If the operation wasn't requested with a specific NI physical address, 
' then alternately cetry the hardware address from the volatile 

! database and the NI HIORD address (the DEC NI prefix concatenated 

! with the node number.) This is done because the target's UNA responds 
! to it’s hardware address after it's been powered up, but when DECnet 

! is started up, it will change the NI address that the UNA responds to 
' to the HIORD address. After a crash, the target's UNA will still be 

! running the DECnet NI address. Since there is no way to tell which 

: one the target is currently answering to, alternately try both. 

8 

I 


EGIN 
F CHSEQL (mom$k_ni_addr_lengt 


h, 
C18 Ccib$t_nT_hiord addr], 


_ni_addr_length, 
Cib$St_ni_phys_addrJ, 0) THEN 
CHSMOVE (mom$k_ni_addr_l ° 


addr_lengt 
cTb$t_ni_Rardwr_addrJ, 
no CIB Ccib$t=ni_phys_addrJ) 


CHSMOVE (mom$k_ni ed¢r Length, 
CIB CcTb$t_ni_Riord_addrJ, 
CIB Ccib$t_ni_phys_addrJ); 


S23 
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60 
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; : ¢ § END; 

: 47 P 04 status = $Q10W (CHAN = .CIB Ccib$l_chan) 

; 47 P ; FUNC = 188 setmode OR io$m_ctrl, 

; 47 P 047 10SB =_ios6, 

; 47 P 0474 P2 = p2_dsc 

3; 4 475 ph = fie te{bst_ni_phys_addr]); 

: 2 : 8 mom$debug_qio (dbg$c_mopio, 

3 status, 

3; 4 47 josb 6 2.dsc, CIB Ccib$t_ni_phys_addrJ, 0, 
: 48% 7 SASCID {*TOS_SETMODE G10 on7MOP channel ")5; 
3 is cB If the SETMODE didn't work, get out. 

; 490 


488 tt mom_mapmoperrors (.status, iosb, mom$signal); 
4 485 END; ! End of mom$set_NI_addr 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


4F 49 51 20 45 44 GF 4D 54 45 53 SF 246 GF 49 00044 P.AAF: .ASCII \10$ _SETMODE Q10 on MOP channel\ : 
6C 65 6E 6E 61 68 63 20 50 4F 4D 20 GE 6F 20 00053 na . : 
0000001€ 90064 P.AAE: LONG $0 ; 
° -AA g 
00000000' 00068 ADDRESS P.AAF 
.PSECT $CODE$,NOWRT,2 
007¢ 00000 .ENTRY MOMSSET_NI_ADDR, Save R2,R3,R4,R5,R6 > 0413 
SE 10 ¢ 9002 SUBL2 #16, §S : 
08 AE 36 DO 0000 MOVL #54. P2_DSC + 044 
56 04 AC D 9009 MOVL C18 R > 044 
Oc AE 16 Ab 9E 00000 MOVAB 22(R6), P2_DSC+4 : 
16 10 A6 § 0012 BLBS 16(R6) > 0445 
46 Ab 04 Ab 6 0016 CMPCS #6, 4(R6), 70(R6) + 0461 
46 Ab OA Ab 6 24 OO1E MOVC3 #6, 10(R6), 70(R6) > 0464 
6 00 4 BRB 2$ : 
46 Ab 04 Ab 6 ie 6 1$: MOVC3 #6, 4(R6), 70(R6) + 0468 
E ¢ 99 C 2$: CLRQ = = (§P) > 0475 
7E p CLRL = = (SP) : 
46 AG OOF 00 PUSHAB 70(R6) : 
18 AE 3 PUSHAB P2_DSC : 
7E 7C 6 CLRQ = = (SP) : 
7E D4 CLRL = =( SP) ; 
30 AE OF A PUSHAB 1088 ; 
7E 02 BF 3C MOVZWL #547, -(SP) : 
ge St : 
000000006 o¢ FB 46 CALLS #12, SYS$QIOW : 
p 4D MOVL RO, STATUS : 
00000000' ai F 2 PUSHAB P.AAE > 0479 
E 04 00056 L  =<SP) : 0478 


SS 
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Voor bob momsset _N addr fet NI driver targets NI a =3087 4382 95:94:82 Laon SREIMOAMOPL YO: B3a¢4 . (6) v0 
4 A6 F 8 PUSHAB 70(R6) 3 
12 Ae F 35 PUSHAB z DSC 3; 047 
7 Be CLRL -(SP) 3: 047 
14 =#OA F PUSHAB 10SB 3 047 
DD PUSHL STATUS 3: 047 
DD PUSHL fs FH 
00000000G_ EF ; 43 ate aye MOMSDEBUG_Q10 : 0683 
046 =A oP PUSHAB 3 
52 DD 0007 PUSHL STATUS : 
00000000V EF 03 FB 0007 CALLS #3, MOM_MAPMOPERRORS 3 
04 0007C RET 3; 0485 


; Routine Size: 125 bytes, Routine Base: S$CODES + 0108 
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744:34 MOM. SRCJMOMMOPLIO.B32;1 


1 ZSBTTL 'mom$mopsndrcv Send and receive a MOP mode message’ 


GLOBAL ROUTINE mom$mopsndrcv (send_CIB, xmit_msg_dsc, 
rcv_CIB, recv_buf_dsc, recv_msg_len, 
skip_msg_dsc) = 


e+ 


i FUNCTIONAL DESCRIPTION: 


This routine performs a transmit operation followed by a receive 
operation. ede te the receive is issued before the transmit 
to insure that a buffer is available for the receive. 


INPUTS: 
SEND_CIB = Information Block for channel to transmit MOP message on. 
XMIT_MSG_DSC = Addres of descriptor of data to be transmitted. 
RCV_CIB = Information Block for channel to receive resporise MOP 
message on. 
RECV_BUF _DSC Address of descriptor of receive buffer. 
er iboneecbee Address of word to contain length of received data. 


= Address of descriptor of received ary 9 to skip. 
On the NI, a node requesting a Program Load sends it 
repeatedly until a response is received from a host. 
This means that there could be more than one Progam 
Load request backed up by the time the MOM sends it's 
response. So, skip over these until the real response 
is received. 
Set to -1 if this routine should skip over all received 
messages which were sent to the multicast NI address. 


IMPLICIT INPUTS: , 
The channel to the target has been opened, and, if it's a NI circuit, 
initted for the first attempted destination address. 

OUTPUTS: 


Success/failure of operation. 


recv_but_dsc : 
skip_msg_dsc : 


OWN 
iosb : $IOSB, 
ni_header : BBLOCK Cnih$k_ni_header_len); 


LOCAL 
retry, 
status, 
rstatus, 
skip_msg_max, 


Be Be Be Be Se Se Be Ge Se Be Be Se Be Be Ge Ge Se Fe Se Ge Fe Ge Ge Se Ge Fe Ge Fe Se Ge Se Ose Se SH Se Se Se Se Se Be Se Se SH Ss 5 Se Gees Se ee FHS ee Se Se Se ee 
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v0vm 


MOM. SRC 


eflags; 
i Post a receive for the response MOP message before sending the MOP message 
which the response will be for. 


' 
i whi 
' 
rstatus = aon. nee receive (.rcv_CIB Ccib$l_chan], .recv_buf_dsc, iosb, ni_header); 
IF NOT .rstatus TREN 

URN mom_mapmoperrors (.rstatus, 0, mom$nosignal); 
skip_msg_max = 20; 
retry = .send_CIB Ccib$l_retry_cnt); 


WHILE .retry GTR 0 DO 
BEGIN 


; Transmit the MOP message to the target load, loop. or dump node. 


status = mom$mopsend (.send_CIB, 
-xmit_msg_dsc at 
-xmit_msg_dsc 035; 
F NOT .status THEN 
EXITLOOP; 


i Issue a read for a response from the target, and then wait for the 
; or a timeout, whichever comes first. 


WHILE true DO 
BEGIN 
Start the timer for the response MOP message just sent. 


SSETIMR (EFN = mom$k_moptimefn, 
DAYTIM = mom$gq_timeout); 

SWFLOR (EFN = 0 

MASK 


i If the timer expired then return an error. If the receive 
completed then check it. 


SREADEF (EFN = 0 
TATE = eflags); 
IF “tis s <mom$k_moptimefn,1> THEN 


= mom$m_mopt imefn OR mom$m_moprcvefn); 


mom$debug_txt (oats mopio - 

$ASCIBD (*Q16 to MOP channel has timed out')); 
status = ss$_timeout; 
EXITLOOP; 


N 
ELSE 
: receive did not time out. Check to see if it completed 


h an error. 
~ 


PUT BS Be BS TTT BB BBE EEE EEE EEE PW 


TIM (); 
debug_qio (goats mopio -rstatus, iosb, 0, 0, 0, 0 
SASCIBD ("MOP receive completion status’); 


=198¢ 93:26:34 — EROM-sRCINGRMOPLIO. 03271 
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status = .jiosb Cios$w_status); 
(.recv_msg_len)<0,16> = .iosb Cios$w_count); 


i If the receive completion status was bad or the received 
' message was 0 vc tg in pen bet retransmit the send MOP-message. 
} The latter check is for point=-tu-point Lines. 


if (NOT .status) OR 
-(.recv_msg_len)<0,16> EQL 0 THEN 
EXITLOOP; 


IF .status THEN 
BEGIN 


i A” response was received from the target, so the correct NI 
address is in use. 


.(.recv msg (en)<6,16>, 
P message received')); 


On NI Links, at the beginning of each program load. 
(secondary, tertiary, or operating system), there is a chance 
that the load or dump request has been retransmitted. If 

so, throw it away, and issue another read. The caller can 
pore tty wither a specific message to skip or that multicasts 
e skipped. 


F .skip_msg_dsc EQL 0 THEN 
EXICOOR™ 


mm nm i te 
Cc 


BEGIN 
IF .skip_msg_dsc GTR 0 THEN 


IF CHSNEQ (.skip_msg_dsc [0], Sk ip_asg_ dsc C1), 
-Sskip_msg_dsc [0], .recv_buf_dsc (1J, 0) THEN 
FXITLOOP; 
ELSE | 
: Skip over multicasts. 


iF NOT .ni_header Cnih$b_multicast] THEN 
EXITLOOP; 


END; 
sk ip_msg_max = .skip_msg_max - 1; 
i Just in case I'm skipping a message that the target is 
' retransmitting over and over, Limit the number of skipped 
messages. 
iF .skip msg_max EQL 0 THEN 
BEGIN’ = 


status = ss$_timeout; 


4 
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v04- mom$mopsndrcv Send and receive a MOP mode m 14-Sep-1984 12:44:34 MOM. SRCJMOMMOPLIO.B32; 
; 663 657 EXITLOOP; 
> 664 6 8 ND; 
; 665 6 rstatus = mom mop_receive (.rcv_CIB Ccib$l_chan], 
3 268 660 -recv_buf_dsc, 
; 66 0661 josb, 
; 668 066 ni_header); 
; 669 66 IF NOT .rstatus THEN 
; 670 664 RETURN mom_mapmoperrors (.rstatus, 0, mom$nosignal); 
: 671 R99? 4 H 
; 67 66 END; 
; 67 066 IF .status NEQ ss$_timeout THEN 
3 ore re4 , _ EXITLOOP; 
; 676 0670 ! Decrement the retry count and retry the 1/0. 
3 Orr 0671 : 
; 678 067 retry = .retry - 1; 
; 679 067 : 
; 680 0674 ' For circuit loop tests, if the NI address of the target is not 
; 681 0675 ' already known, set up to try an alternate one. The HIORD and 
§ re po78 } hardware addresses for the target are alternately retried. 
; 684 0678 IF .mom$gl_service flags Cmom$v_ni_circ] AND 
: 685 $679 ? perry GTR O THEN 
; 687 0681 4 IF NOT .send CIB Ccib$v_target_addr_fixed] THEN 
; 0682 4 mom$set_NI_ addr (.send_Cisy; 
; 689 0683 4 IF .send_CIB NEQ .rcv_C1B AND 
; 0684 4 NOT .rcv_CIB Cc ibov target addr_fixed] THEN 
; 691 0685 4 mom$set_NI_addr (.rcv_CIB); 
; 6 0686 3 END; 
; 69 0687 END; 
3; 694 0688 ' 
; 695 0689 : Check the NI header to see if the MOP message was sent to the | 
3 0690 ! NI multicast address (meaning that any NI node enabled for multicast 
; pad pea! can respond to the message.) 
; 069 IF .mom$gl_service_flags Cmom$v_ni_circ] AND 
; 0694 -Status THEN 
; 701 0695 E 
3; 0696 JF .ni_header Cnih$b_multicast] THEN 
: 70 0697 mom$gl_service_flags Cmom$v_ni_multicast] = true 
; 704 0698 ELSE 
; 705 0699 mom$gl_service_flags Cmom$v_ni_multicast] = false; 
3 4 700 , END: 
; 708 070 ! If no response was received from the target node, cancel the I/Os 
: 709 070 ! on the MOP channels. The only time the send channel isn't the same 
; a fA , as the receive channel is for loop with assist on the Ethernet. 
3 ar 0706 IF retry LEQ 0 THEN 
: 71 070 E 
3 714 708 CANCEL (CHAN = .send CIB Ccib$l_chan)); | 
> 715 709 IF .send_ CIB Ccib$l_chan) NEQ .rcv_C1B Ccib$t_chan) THEN 
: rig at ae SCANTEL (CHAN =".rcv_CIB Ccib$T_chan])); 
: at | fats RETURN mom_mapmoperrors (.status, 0, mom$nosignal) 


, @ 
Network Service MOP Line 1/0 modules 16-Sep-1984 02:04:54 AX-11 Bliss-32 V4.0-74 
mom$mopsndrcv Send and receive : MOP mode m 14- 8ep-1984 ° 00:82 MOM.SRC MOMMOPL IO o:B3ee4 


0714 1 END; ! End of mom$mopsndrcv 


-PSECT S$PLITS,NOWRT,NOEXE,2 


20 50 4F 4D 6F 74 F 49 51 O6C P.AAH: .ASCII \QI0 to MOP channel has timed out\ 
6D 69 74 20 38 61 68 8 6C $9 6 ict 
06000 0 Mitt P.AAG “10 NG 32 
65 76 69 65 63 65 72 20 5 20990000 0090 P.AAJ ASChT AMOR ; i leti tatus\ 
e $ receive completion status 
gi fe 9% 58 be SF 6S $2 af Be GR BbORS ¢ 
0081 -BLKB 
90000010 00B4 P.AAI ONG 9 
0000000' 00088 SDDRESS AAJ 
65 67 61 73 73 65 6D 20 30 &F 20 OOBC P.AAL ASCII \MOP message received\ 
64 65 76 69 65 000CB 
00000014 00000 P.AAK: .LONG 20 
00000000" 00004 “ADDRESS P.AAL 
.PSECT SOWNS,NOEXE,2 
00040 10SB: .BLKB 8 
00048 NI_HEADER: 
.BLKB 14 
.EXTRN SYSSSETIMR, SYSS$WFLOR 
-EXTRN SYSSREADEF. SYSSCANTIM 
“EXTRN SYSS$CANCEL 
-PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY Se hae Save R2,R3,R4,R5,R6,R7,R8,- 
SE 04 C2 0000 SUBL2 
00000000' EF SF 0000 PUSHAB NI *UPADER 
00000000' EF 9F 00008 PUSHAB 10SB 
55 0C AC 7D 00011 MOV  RCV_CIB, R5 
36 DD 0013 PUSHL R6 
65 DD 0001 PUSHL (RS) 
00000000v Ef 04 FB 00019 CALLS a, mon MOP_RECEIVE 
9 g DO 000 9 MOVL STAT Tus” 
03 5 5 99 BLBS RSfATUS, 1$ 
0104 6 BRW 
5B 14 DO 00029 1$: MOVL 120 SKIP_MSG_MAX 
54 04 Ac 00 0002C MOVL SEND CIB, "R4 ~ 
SA 12 Aa& DO 00030 MOVL (RZ), RETRY 
58 08 aC DO 000 MOVL = XMI I 9s. DSC, RB 
SA p 2$ TSTL 
03 4 A BGTR 
0127 31 C 3$: BRw 15$ 
08 BC dD F 4$: PUSHL SHRI _MSG_vsc 
4 AS DD 0004 PUSHL 
54 DD 0004 PUSHL Rs 
00000000v EF 93 FB 4 CALLS , MOMSMOPSEND 
7 D 4E MOVL R * STATUS 


Pete Se Ge Se Se Be 


SS 


gf 
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mom$mopsndrcv Send and receive : MOP mode m 14-Sep-1 & MOM. SRCJMOMMOPLIO.B832; 
E8 rH fe 1 BLBC STATUS, 3$ 
E ¢ 4 5$ CLRQ =(SP) 
00000000G_ EF 6 PUSHAB tata satiate 
3 4 C PUSHL @# 
000000006 00 4 FB CALLS #4, SYSSSETIMR 
A DD 0006 PUSHL #10 
5 D4 6 CLRL -(SP) 
000000006 00 SE 4 898 ane ace SYSSWFLOR 
D4 Ore CLRL -(SP) 
00000000G 00 8 ia:) 7 CALLS #2, SYSSREADEF 
1 6E ft Be BBC #5, EFLAGS, 6$ 
00000000" EF SF 7F PUSHAB P.AAG 
DD 000 ; PUSHL @# 
00000000G_ EF 8 9 CALLS se. MOMSDEBUG_TXT 
43 7C 00090 6$: CLRO -(SP) 
000000006 00 02 FB 0009 CALLS #2, SYSSCANTIM 
00000000" i 3 00 PUSHAB P.AAI 
E 7C 0009F CLRO -(SP) 
7E 7C OO0A1 CLRO -(SP) 
00000000' gf oF Behe PUSHAB 10S 
9 DD 000A9 PUSHL RSTATUS 
05 0D O000AB PUSHL # 
00000000G_ EF 08 FB OOOAD CALLS #8 page Me Q10 
7 90000000" EF 3C 000B4 MOVZ2WL 1058, S$ 
14 BC 00000000° gf 80 008 MOVW 108Bs2> Maree _MSG_LEN 
6D 7 § 00C BLBC STATUS, 12$ 
98 3 00C BEQL 12$ 
37 00C BLBC STATUS, 8$ 
10 A4 01 88 000CB BISB #1, 16(R4) 
10 AS 01 88 96 CF BISB #1, 16(R5) 
00000000" EF F 00003 PUSHAB P.AAK 
TE 14 BC 3C 00009 MOVZWi @RECV_MSG_LEN, -(SP) 
04 A6 DD 000DD PUSHL 4(R6)~ 
05 DD OO00ED PUSHL #5 
000000006 gf 04 F O0E¢ CALLS #4, MOMSDEBUG_MSG 
0 18 «AC p O0E MOVL skip _MSG_DSC,~RO 
44 OED BEQL 
OA 1 OEF BLEQ Ta 
04 B86 04 B0 60 ¢ OF1 CMPC3 (RO), @4(RO), a4(R6) 
% Bere BEQL 8$ 
8 11 OO0F9 BRB 12$ 
31 00000000' F 34 a8 7$: BLBC NI paneer 12$ 
8 b 8$: DECL SKIP_MSG_MAX 
2 001 BNEQ 
57 022¢ 3¢ 106 9$: MOVZWL #556, status 
26 «11 001 BRB 12$ 
0000000' EF 9F 1 10$: PUSHAB NI_HEADER 
0000000 gE 9F 001 PUSHAB 1058 
g DD 0011 PUSHL R6 
DD 00118 PUSHL (RS) 
00000000v f 4 of 110 CALLS > BOR ROP RECEIVE 
3 } 107 BLBC RO; AIK WHS. 
FF 1 OO12A BRw 
E 7C 0012D 11$: CLRO -(SP) 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se Se Se Se Be Be Se Se Bs Be Se Be Se Se Be Se Se Se Be Be Se Be Be Be Se Be Se Se Be Be Se Se Be Se 
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yoeeb0b mom$mopsndrcv Send and receive a MOP mode m 12-808-1 382 96:06: 3 MOM. SRCJMOMMOPLIO.B32; 
9 12 PUSHL STAT 
32 i 1 } BRB . pe 
0000022¢ = &F 7 p 133.128:  CMPL STATUS, #556 
as SBE eta 
1D 000000006 _ EF 1 Fl 1 BBC Pj MOMSGL_SERVICE_FLAGS, 14$ 
5 3 14 BLEQ 3=s«14$ 
07 10 Aad EB 0014 BLBS 16(R4), 13$ 
4 DD 0014C PUSHL R4 
FE30—s CF 4 fF 146 CALLS #1, MOMSSET_NI_ADDR 
me aie ae 
07 10 AS £8 001 § BLBS 14(R5), 14 
3 DD 0015¢ PUSHL 
FE20 CF 1 Fe 1 : CALLS #1, MOMSSET_NI_ADDR 
FED2 31 00163 14%: BRW 23° 
1A 000000006 f gf E 166 15$: BBC ae MOMS g SERVICE _FLAGS, 17% 
09 00000000" €éF £9 Hai BLBC NIK rus. 178 
000000006 EF 9 b8 0178 1 sB2 a3 mOnSEL. ‘Service _FLAGS 
000000006 EF 0 8A 91 1 168: BICB2 #32, MOMSGL_SERVICE_FLAGS 
vee ggg We: ark 
64 DD 0018C PUSHL  (R4) 
000000006 09 01 FB 01 CALLS #1, SYSSCANCEL 
6 64 01 001 CMPL (Ro), (RS) 
83 OD DOTA Pst (RSD 
000000006 00 01 FB 0019 CALLS #1 SYSSCANCEL 
Sos Sing TH: GE GtRR 
00000000v_ EF 03 FB OO1A7 198: CALLS #3, MOM_MAPMOPERRORS 
04 OO1AE RET 


; Routine Size: 431 bytes, Routine Base: S$CODES + 0255 


Pe Se Se Se Se Se Be Ge Be Se Be Se Se Se Se Se Se Ge Be Ge Ge Ge Se Fe Se Se Ge Ge Ge Se Se Fe Be Be 


ea 
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mom_mop_receive Receive a MOP mode message -Sep-1 4 MOM. SRC JMOMMOPLIO.832; 
; £ § 715 1 ZSBTTL ‘mom_mop_receive Receive a MOP mode message’ 
. ££ ig 1 ROUTINE mom-mop_receive (mop_rcv_chan 
: 726 717 (1 Fecv_buf_dsc, 
3 f 5 718 «#1 ios 
3 $ 719 «1 ni_header_addr) = 
te. 7 1 tee 
we: ; 7 1! FUNCTIONAL DESCRIPTION: 
; 4 f ¢ } } This routine is called to issue a Q10 receive on the MOP channel 
: 731 726 1! 1 
; 7 4 725 1! MOP_RCV or = Q10 channel to issue receive on. 
; 7 7 § 1! mor _BUF _DSC = = Address of descriptor of receive message buffer. 
om 7 1! 10S8~ Address of | 
; 4 5 4 3 : ; NI_HEADER_ADDR = = Adéress of buffer in which to return NI header. 
; 7 730 1 ' OUTPUTS: 
3 4 1 : Success/failure of operation. 
; 740 7 4 BEGIN 
: 741 734 
3 74 735 
; 7 7 recv_buf_dsc: REF VECTOR; 
: 746 7 
3; 765 738 LOCAL 
3; 746 739 retry, 
3; 767 740 rstatus; 
; 748 358 
3; 769 re retry = 
3 P20 Bre wile aaretry GTR 0 DO 
3 Pee P opee oe = $010 ve = mom$k_moprcvefn, 
3; 75 Fe o7e8 CHAN = .mop_rcv_chan, 
3; 7546 P 074 FUNC = io$_ Feadvolk, 
3; 735 e 378 10SB = .ios 
; £38 P 074 Pi os eon “buf dsc fi }: 
. > P 0750 5: = recy “puf_dse (0 
; 758 751 p = héader_addr); 
; 759 P36 IF NOT .rstatus THEN 
; 760 075 mom$debug_qio sgeets conti -rstatus - 0. 0,.0 
; 761 o733 SASCID (ROP receive completion status')5 
3 708 238 se XITLOOP; 
3; 7646 Pe fosey = .retry - 1; 
: 26 RETURN “status; 
3 760 ! of mom_mop_receive 


-PSECT SPLITS,NOWRT,NOEXE ,2 


3 65 72 20 50 4F 4D 0008 P.AAN: .ASCII \MOP receive completion status\ 3 

E 6F 69 74 65 6C 70 OE 3 
OFS -BLKB 

90000018 pe P.AAM: . LONG 9 3 

00° FC «ADDRESS P.AAN 3 


10 Network Service MOP Line 1/0 modules tb-se $ep-1984 02:04:54 AX-11 Bliss-32 V4.0-74 e 7) 
yoo~000 mom_mop_receive Receive a MOP mode message =30071 382 95:00:82 MOM SRE MOMMOPL 10.832; _ & 


| 

LEXTRN SYS$QIO | 

.PSECT $CODES,NOWRT,2 | 

001¢ 00000 MOM_MOP_RECEIVE: | 


WO Save R2,R3,R4 : 071 
3 03 OD MOVL # Y 3: 074 
2 08 At D MOVL §RECV_BUF_DSC, R2 + 075 
5 1$: TSTL RETRY 3 0743 
41 BLEG ; 
7E 04 CLRL = = (SP) : 0751 
10 AC DD F PUSHL NI_HEADER_ADDR : 
7E 7C é CLRQ. = =(SP) : 
8 Bf DD 0001 SHL are Cy BUF _DSC : 
4 A bp 17 PUSHL  4(R2) : 
7E 7C OOO1A CLRQ. = SP) : 
OC AC DD 000IC PUSHL 1088 F 
31 DD O01 PUSHL #4 : 
04 AC DD 0 1 PUSHL MOP _RCV_CHAN : 
1 DD 00024 PUSHL : 
000000006 99 FB 00026 CALLS 412, syssaio F 
DO 00020 MOVL RO, RSTA Tus : 
1B 5 00 BLBS = RSTAT fatus, + 0752 
00000000" EF F 000 PUSHAB PAAR : 0754 
—E 7¢ 00039 CLRQ =< SP) + 0753 
7E 7C 000 CLRQ- =( SP) : 
43 D4 005 CLRL = = (SP) : 
5 DD 0003F PUSHL bala 3 
05 od 00041 PUSHL : 
000000006 EF 08 FB 00043 CALLS #8, MOMSDEBUG_QI0 ; 
4 D7-9004A DECL RETRY : 0757 
B8 11 0004C BRB + 0743 
50 DO OO4E 2s: MOVL = RSTATUS, RO : 0759 
04 0005 RET : 0760 


; Routine Size: 82 bytes, Routine Base: S$CODES + 0404 


Kk 4 
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senbnng Fecviee,atew cles ed wait for a 12780071382 95:00: 8e YROM.SRE nSAMOSL IO. O32¢ 


ZSBTTL ‘mom$mop_receive_qiow Receive and wait for a MOP mode message’ 
GLOBAL ROUTINE mom p_Feceive_aiow (mop_rcv_chan, ° 


mop_msg_dsc, 
ni Reader addr) s 


j 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


i | 


JoUFon—o 


7 

, 7 ; This routin rforms a receive operation on the specified MOP 

7 8 ; channel. This is currently used only to get the mop message which 
ure a : causes SERVICE to be started for an autoservice function. 

7 Ae i INPUTS: 

7 ; MOP_RCV_CHAN = Channel to receive response MOP message on. 

7 ¢ 774 : MOP Address of Cover ptor of receive buffer. 

7 775 ‘ NI_READER_ADDR = Address at which to put NI header which was 

7 77 : received with the MOP message. Used to determine if 

f 5 ee : a MOP message was multicast. 

7 77 i OUTPUTS: 

7 780 : If the Q10 does not complete successfully, the first longword of 
44 f 1 : the MOP message descriptor is set to zero. 

791 7 : : 

64 7 

79 785 
794 7 
795 , 
+38 789 
798 790 
799 791 

79 LOCAL 
at rstatus; 


rstatus = SQ]0W (EFN = mom$k_moprcvefn, 
CHAN 


mop_rcv_chan 

FUNC = jio$ readvblk OR io$m_now, 
10SB = iosb, 

P1 -mop_msg_dsc 43. 
-mop_msg_dsc ° 
-ni_Reader_addr); 


vuvvUvU 
aw 
Qs 


800 


ps 
P 
IF NOT .rstatus THE 


HEN 
mom$debug_qio (dbg$c_mopio, .rstatus, iosb, 0, 0, 0, 0 
veal SASCID CoMOP receive completion status'5); 


ooo 


‘ 
: Check to see ef the receive completed with an error. 


if .rstatus THEN 


N 
mom$debug_qio (gbgse mopio -rstatus, iosb, 0, 0, 0, 
S$ASCIB (°MO receive completion status 
rstatus = .iosb Cios$w_status); 
IF “Catetus THEN 


mop msds (0) = .iosb Cios$w_count]; 
mom$debig_msg ( dbg$c_mopio, 


Sar 


5) 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
BEGIN 
MAP 

mop_msg_dsc: REF VECTOR; 
OWN 
jiosb : Siosb; 

& 

% 

4 


—— tt I I OOD 


NOUS WI —O0O@ 


PROROPONOPOY 


Ssarans 
MEW 0 OONOU Ew" O0@ wVebwn— 


o 
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yoe~000 mom$mop_receive_qiow Receive and wait for a 1 ~Sep-19 4 rae YAOM. SRE moAMOPLIO. O32, oe (3) 
18 4 ° . 
$ ; mop_msg_dsc Fa 


oe anserp erage message received')); 


END; 
: If NOT .rstatus raeN 
: mop_msg_dsc (0) = 0; 


$ RETURN .rstatus; 
5 END; ! End of mom$mop_receive_qiow 


«PSECT $PLITS,NOWRT ,NOEXE,2 


6D 6F 63 20 65 76 69 65 63 65 72 20 50 4F 4D 00100 P.AAP: .AS \MOP i i t : 
% 75 61 74 $3 $3 6E 6F ig $0 as 6c 70 o10F ae arene Mane Seen : | 

00000010 + 0 P.AAO: <LONG 29 : 

6D 6F 63 20 65 76 69 65 63 65 72 20 5 wm 61 4 PAAR ABCTES \MOP i leti \ ; 

93 $2 SF 28 $3 $8 SF GF 2 $2 8 st 3 O17 ‘Ae Seinen wmaiennscae sinter: : 

Boo0000" goree 8? “hM gs PAAR ; 

63 65 72 20 65 67 61 73 73 65 6D 20 50 4F 4p 00136 P.AAT: .ASCII \MOP message received\ : 

64 65 76 69 65 0015F : 

00000014 00164 P.AAS: .LONG 20 ; 

00000000" 00168 “ADDRESS P.AAT : 

.PSECT SOWNS,NOEXE,2 


0056 -BLKB 2 
0058 10SB: .BLKB 8 


-PSECT S$CODES,NOWRT,2 


007¢ 9000 .ENTRY MOMSMOP_RECEIVE_QIOW, Save R2,R3,R4,R5,R6 ; 0762 
56 000000006 EF 9E 0002 MOVAB MOMSDEBDG 10, R6 : 
5 90000000" EF 9E 000 MOVAB P.AAO, R : 
54 00000000' EF 9E 9010 MOVAB I0SB, R4 : | 
E 04 0001 CLRL = : 0801 
oc ac DD 19 PUSHL  NI_HEADER_ADDR : 
7E c 1¢ cLRQ. = : 
52 08 aC D 1 MOVL § MOP_MSG_DSC, R2 ; 
62 0D PUSHL  (R2J : 
04 =A BD 024 PUSHL  4(R2) : 
7E 7C 7 CLRQ.  =(SP) : 
4 0D 9 PUSHL 4 : 
7E 71 BF OA B MOVZBL #113, -(SP : 
04 AC DD F PUSHL MOP_RCV_CHAN ; 
1 OD PUSHL #1 : 
000000006 99 F CALLS #12, SYS$QI0W : 
D 8 MOVL RO RSTATUS : 
10 E E BLBS RSfATUS, 1$ > 0802 


4 se 


10 Network Service Line 1/0 modules e 4 AX-11 Bliss-32 V4.0-74 Page 30 mor 
yOe~000 rok nob nstd ef, 1h Receive and wait for a 1 12: ie: 1384 93: 08: 32 MOM. SRCJMOMMOPL 10.832; se FS Sy! 
5 4 PUSHL R5 : 0804 FLC 

re 4 CLRQ. = (SP) : 0883 MO? 

C 4 CLRO -(SP) : MOP 

18 6B PUSHR #*M<R3,R4> : MO? 

DO 00049 PUSHL 4 : MO? 

$6 FB 48 CALLS mOMSDEBUG_ Q10 ; MOF 

C af LBC RStATUS + 0809 mor 

28 «OAS OS 51 1$ PUSHAB : 0812 MO? 

7E 7C 4 CLRQ “i5P) ; 0811 MO? 

7E 7C 6 CLRQ -(SP) : MO? 

18 BB PUSHR #*M<R3,R4> : MOF 

0 DD A PUSHL : MOP 

§ PB C CALLS MOMSDEBUG 010 : MOF 

$4 3¢ F MOVZWL Toe Atus” i 0813 MOP 

1 06¢ BLBC Tatys. 2 + 0814 MO? 

6 02 a O06 MOVZWL TosB+ 3 0816 MOF 

44 AS 9F 00069 PUSHAB P.AAS ; 0820 MOP 

62 DD 0006C SHL (R2) 3 0819 MOF 

04 Ae OD O06E PUSHL  4(R2) : 0818 MOF 

05 DD 000 PUSHL # 3 081 MOP 

000000006 FF 04 FB 0073 CALLS mORSDEBUG MSG 3 MOF 
2 3 £8 OOO7A BLBS asta 3 0823 mor 

$¢ D4 0007D 28 CLRL ( 3 0824 MOP 

50 D0 Th $ MOVL RSTATUS, RO ; 0826 MOP 

04 00082 RET : 0827 woe 

; Routine Size: 131 bytes, Routine Base: S$CODES + 0456 noe 
MOF 

MOF 

MOF 

MOF 

MOF 

NMA 

NMA 

NMA 

NMA 

NMA 

NMA 


NPA 
NP/ 
NP/ 
NP/ 

j 
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send Send a MOP mode message 12-808-1 3b 9500 8 EROM. SRC MOMMOPLIO.B32: 


: 
3% 
33 


3 7 1 ZSBTTL snosengpeend Send a MOP mode messzge' 

; 3 : GLOBAL ROUTINE mom$mopsend (send_CIB, adr, len) = 

: 840 1 144 

; a3 § \ FUNCTIONAL DESCRIPTION: 

3 7 r ! This routine transmits a single MOP message. 

3 re § : } INPUTS: 

3 t3 3 1! SEND_CIB = Informaton Block of channel over which to transmit MOP message 
3 : 1! ADR = Address of data to be transmitted. 

3 2 re : LEN = Length in bytes of data to be transmitted. 
; 851 7) 1 ! OUTPUTS: 

3 26 845 1! 

3 85 844 1! Success/failure of operation. 

: 854 0845 1 !-- 

; 855 oaee 1 

3 £28 084 BEGIN 

; 85 0848 

; 858 0849 MAP 

; 859 ste send_CIB : REF BBLOCK; 

; 861 thy LOCAL 

g o6¢ 085 iosb : $iosb, 

; 86 0854 wstatus; 

; 864 0855 

; 865 0856 mom$debug_msg ( dbgSc_mopio, 

; £08 0857 adr, 

3 7 0858 .len 

; 868 0859 $ascip ("Transmitting MOP message')); 

; 869 P 0860 wstatus = $Q]0W (EFN = mom$k_mopsndefn 

: 870 P 0861 CHAN = .send_CIB [cib$l_chan), 

; 871 P BReg FUNC = io$_writevblk, 

: ae P 086 10SB = iosb, 

: 87 P 0864 Pl = .adr 

> 874 0865 P2 = J Lend; 

; 875 D208 

3 16 086 ‘ 

3 Ag tye Dump the transmit's completion status to the debug log. 
: 879 0890 mom$debug_qio (dbase mopio, .wstatus, jiosb, 0, 0, 0, 0, 
3 0 bao. SASCID ('MOP transmit completion status')); 
: 1 fh RETURN mom_mapmoperrors (.wstatus, iosb, mom$nosignal) 

3 § 0874 END; ! End of MOMSMOPSEND 


-PSECT SPLITS,NOWRT ,NOEXE,2 
$c P.AAV: .ASCII \Transmitting MOP message\ 


1 

1 

184 P.AAU: .LONG 24 

1 «ADDRESS P.AAV 
18C P.AAX: .ASCII \MOP transmit completion status\ 


voreeou UTR as gs 


72 74 20 50 4 


"SOoon 
oo 
oo 


6F 63 20 74 69 6D 73 6E 61 


Pa9e 15) 
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¥04-000 mom$mopsend Send a MOP mode message 1e-8ep- 38 95:08:34 MOM. SREIMOMMOPL 10.032; a9e 485 
73 75 74 61 74 73 20 6E& 6F 69 74 65 6C 70 6D 00198 : 
000001 STA P.AAW “PONE 0 
§b090008" 0180 .ADDRESS P.AAX : 
-PSECT $CODES,NOWRT,2 
0004 00000 ~ENTRY MOMSMOPSEND, Save R2 3; 0829 
5E 08 C2 20009 SUBL2 #8, SP § 
tated | EF 9F BnO8 PUSHAB P.AAU : 0859 
7E ag D 00008 ova ADR, =-(SP) 3; 0857 
05 oD BRDF PUSHL # 3: 0856 
00000000G_ EF * FB 00011 CALLS #4, MOMSDEBUG_MSG é 
E 7C 00018 CLRO 0 = (SP) + 0865 
7E 7C QOO1A CLRQ (SP) 3 
7E 08 AC 7D OO01C MOVQ ADR, =-(SP) 3 
7E 7C 00020 CLROQ p : 
20 AE 9Y9F 000 : PUSHAB I0SB 3 
30 DD 000 PUSHL #48 ; 
04 BC DD 00027 PUSHL a@SEND_CIB : 
02 DD 0002A PUSHL # 3 
v0000000G 00 OC FB pees CALLS #12, SYS$QI0W 3 
52 50 pd0 000 MOVL RO, WSTATUS 3 
00000000" EF 9F 00036 PUSHAB  P.AA ; 0871 
7E 7C 0003C CLRQ -(SP) ; 0870 
7E 7C OO03E CLRQ - (SP) ; 
14 ag 9F 00040 PUSHAB I0SB 3 
5 DD 00043 PUSHL WSTATUS 3 
05 DD 00045 PUSHL a4 é 
00000000G_ EF 08 FB 00047 CALLS #8, MOMSDEBUG_QI0 3 
7E D4 O004E CLRL 0s = ( §P) : 0872 
04 AE 9F 00050 PUSHAB I0SB : 
36 DD 00053 PUSHL WSTATUS Z 
00000000vV_ EF 03 FB 00055 CALLS #3, MOM_MAPMOPERRORS ; 
04 0005C RET : 0874 


; Routine Size: 93 bytes, Routine Base: S$CODE$ + 0409 
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mom_mapmoperrors Map MOP error codes 14-Sep-1984 12:44: 


30/9 
4 MOM. SRC JMOMMOPLIO.B32; 
ZSBTTL_ ‘mom_mapmoperrors Hap MOP error codes' 

ROUTINE mom_mapmoperrors (code, iosb, signal_flag) = 

144 

FUNCTIONAL DESCRIPTION: 

This routine sets up the message block information for MOP errors. 

! INPUTS: 


CODE Q10 status code. 

10SB Address of I/0 status block. 

SIGNAL_FLAG Indicates whether or not to signal if there is 
an error. 0 = don't signal, 1 = signal. 


If an error is indicated, the “~"2c9 caece Sree peeenpe information 


The actual status of the operation is returned. The status 
Epees from either the value in RO or the value in the I/0 status 
ock. 


is stored in the message block ( 


i 
' 

' 

i 

' 

' 

! QUTPUTS: 
' 

' 

ie 


BEGIN 


Pp 
jiosb : REF $10SB; 


LOCAL 
status, 
msgsize; 


status = .code; 


IF .code THEN 
IF .iosb NEQA 0 THEN 
status = .iosb Cios$w_status]; 


IF NOT .status THEN 
SELECTONEU .status OF 


Ss 
COTHERWISE): 
BEGIN 


mom$ab_msgblock Cmsb$b_code nma$c_Sts_Tco; 
mom$ab_msgblock Cmsb$l_text -Status; 
IF ‘ere flag THEN 


mom$bld_reply (mom$ab_msgblock, msgsize); 
$signal-msg (mom$ab_nice_xmit_buf, .msgsize); 


mom$ab_msgblock tasbsbccode) = msb$m_msg_fld; 


END; 
TES; 


d 5 
+ ve Network Service MOP Line 1/0 modules 1o~sen~1 386 96:06:38 te Bliss-32 V4.0-742 Page 34 
v04- mom_mapmoperrors Map MOP error codes 14-Sep-1984 12:44:34 MOM. SRCJMOMMOPLIO.B32;1 (11) 
; 94 9 RETURN .status 
3 308 0338 ; 
; 944 934 END; ! End of mom_mapmoperrors 
= 
000C 00000 MOM_MAPMOPERRORS: 
«WORD Save R2,R3 3; 0876 
53 000000006 Ff 3 0008 ROVAR MOMSAB_MSGBLOCK, R3 : 
ef 4 ¢ 690 SUBL #4, SP 3 
04 AC D C OVL  CObE, STATUS + 0909 
09 04 AC €9 00010 BLBC CODE, 1$ ; 0911 
08 AC 3 00014 TSTL 10SB 3; 0912 
04 «1 0017 BEQL 1$ : 
50 08 Bf 3¢ 00019 MOVZWL @I10SB, STATUS ; 0913 
52 6 DO 00010 1$: MOVL STATUS, R2 > 0915 
2F 52 £8 poo 9 BLBS R2, 2$ ; 
63 04 pO0 000 MOVL #4, MOMSAB_MSGBLOCK 3; 0921 
04 A3 OA aE 00026 MNEGB #10, MOMSAB MSGBLOCK+4 > 0922 
0c A3 2 00 0002A MOVL R2, MOMSAB_MSGBLOCK+12 3; 0923 
20 Oc Ac €9 000¢E BLBC SIGNAL_FLAG, 2$ > 0924 
4008 8F 6B 000 PUSHR #*M<R3;SP> 3 0926 
00000000G_ EF 02 FB 00036 CALLS #2, MOMSBLD_REPLY s 
6E 0D 0003D PUSHL MSG 3; 0927 
000000006 cr 9F 0003F PUSHAB norsae NICE_XMIT_BUF : 
02070000 F DD 00045 PUSHL #34013T84 : 
000000006 00 03 FB 00048 CALLS #3, LIBSSIGNAL ; 
50 52 00 ett 2$ MOVL R2, RO 3 0932 
04 0005 RET ; 0934 


; Routine Size: 86 bytes, Routine Base: SCODE$S + 0536 


ee . a — —) 


v04- mom_mapmoperrors 


Network Service MOP Line 1/0 modules 
Map MOP error codes 


ae ie 


948 0 ELUDOM 


PSECT SUMMARY 


Name Bytes 
SPLITS 4 NOVEC ,NOWRT, 
SCODES 14 NOVEC ,NOWRT, 
SOWNS NOVEL, WRT, 


Library Statistics 


coccnman Symbols -<------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: (MOM. OBJ JMOML I 194 51 26 21 00: 00.1 
“$ 2 2$DUACB: SHRLIB NMAL TORY. att -4 887 17 1 47 0:00.2 
“$255$DUA28: CSYSLIBISTARLET.L32; 1 9776 17 0 581 00:02.1 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:MOMMOPLIO/OBJ=OBJ$:MOMMOPLIO MSRC$:MOMMOPL 10/UPDATE=(ENHS :MOMMOPL 10) 
949 0938 O 
Size: 1420 code + 532 data bytes 
Run Time 00:29.8 


Slassed. Time: of soe 


Lines/CPU Min: 199) 
ponens (Saas 19316 
Memor 199 pages 


et hms Complete 


(AX-11 Bliss-32 V4.0-74 


bs vs 
14-$ MOM.SRCJMOMMOPLi0.B32; 
' 


5 

p-1984 02:04:54 
4 -1984 9 Oak 
! End 


of module 


~-EXTRN LIBSSIGNAL 


Attributes 


RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
RD , sNOSHR, LCL, REL, (CON,NOPIC,ALIGN(2) 
RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Page 133 


ee} 
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